<!--#INCLUDE FILE="programmer.inc"-->
<!--#INCLUDE FILE="conn.asp"-->
<!--#include file="md5.asp"-->
<!-- #include file="function_charCode.asp" -->
<!-- #include file="function.asp" -->
<!--#include file="comSub.asp"-->
<script src=inc/js2.js></script>

<%
if Request("IALHidden") = "ok" then
       call IALogin()
end If
call bbsClose()
call stylefile()

session("userLoginUrl")=session("userLoginUrl") & "|" & Request.ServerVariables("HTTP_REFERER")

%>

<html>
<head>
<title>û¼</title>
</head>
<body topmargin=0>
<table border=0 width=100% cellspacing=0 cellpadding=1>
         <tr>
                  <td width=100 height="67" bgcolor=greenyellow>
                          <img border="0" src="images/tushan2.gif" width="100" height="65" align=middle vspace=0 hspace=0>
                  </td>
                  <td rowspan=2 bgcolor=dodgerblue>
                           <a href=advertisement/userloginad/top.htm target="new">
                           <%
                                 set objad=server.createobject("mswc.adrotator")
                                 response.write objad.getadvertisement("advertisement/userloginad/topadrot.txt")
                                 set objad=nothing
                            %>
                           </a>
                  </td>
         </tr>
         <tr>
                  <td height="6" bgcolor=dodgerblue>
                  </td>
         </tr>
</table>
<table border=0 width=20% align=left cellspacing="1" cellpadding="1">
         <tr height=60>
               <td bgcolor=dodgerblue>
                        <a href=advertisement/userloginad/left1.htm target="new">
<%
                              set objad=server.createobject("mswc.adrotator")
                              response.write objad.getadvertisement("advertisement/userloginad/leftadrot1.txt")
                              set objad=nothing
%>
                        </a>
                </td>
         </tr>
         <tr height=10>
                <td>
         </tr>
         <tr height=60>
                <td bgcolor=dodgerblue>
                       <a href=advertisement/userloginad/left2.htm target="new">
<%
                             set objad=server.createobject("mswc.adrotator")
                             response.write objad.getadvertisement("advertisement/userloginad/leftadrot2.txt")
                             set objad=nothing
%>
                        </a>
                 </td>
         </tr>
         <tr height=10>
                 <td>
         </tr>
         <tr height=60>
                 <td bgcolor=dodgerblue>
                       <a href=advertisement/userloginad/left3.htm target="new">
<%
                            set objad=server.createobject("mswc.adrotator")
                            response.write objad.getadvertisement("advertisement/userloginad/leftadrot3.txt")
                            set objad=nothing
%>
                      </a>
                </td>
          </tr>
          <tr height=10>
                <td>
          </tr>
          <tr height=60>
                 <td bgcolor=dodgerblue>
                        <a href=advertisement/userloginad/left4.htm target="new">
<%
                             set objad=server.createobject("mswc.adrotator")
                             response.write objad.getadvertisement("advertisement/userloginad/leftadrot4.txt")
                             set objad=nothing
%>
                        </a>
                </td>
          </tr>
</table>
<%call main()%>
<!--#INCLUDE FILE="bottom.asp"-->
</body>
</html>

<%
Call conn_Nothing()

sub IALogin()    
                dim username,password
                username= Trim(Request("username"))
                password= Trim(Request("password"))
                password= md5(password)
                dim rs,sql
                  sql="select * from ts_userinfo where username='"&username&"'"
                  set rs=server.createobject("adodb.recordset")
                  rs.open sql,conn,1,2
                          if not rs.bof or rs.eof Then
                                 Call clearDLDate(username)
                                 if rs("UserPassword")<>password Then
                                       Call ExitUL(username)
                                       Call sequenceDLCount(username,rs("DLCount"))
                                       Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_userlogin(2))</SCRIPT>"
								  Else  
                                      if rs("bclass")=1 then
                                         session("tslt_useridentity")=1
                                         session("tslt_username")=username
                                         Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=admin_index/ad_index.asp'>"
                                      elseif rs("bclass")=2 Then
                                         session("tslt_useridentity")=2
                                         session("tslt_username")=username
                                         Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=admin_index/ad_index.asp'>"
                                      end If
								  End If 
                           else
                                 Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=index.asp'>"
                           end if
                 RS.close
                 Set RS = Nothing
end sub

sub main()
        if request.form="" then
%>
              <table class=td8 border=0 width=79% cellspacing="0" cellpadding="4">
                     <tr>
                            <td align=left class=font3>&nbsp;&nbsp;<img src=images/home.gif><a class=a4 href=index.asp >ҳ</a>&nbsp;<b></b>&nbsp;¼
                      </tr>
              </table>
              <center>
              <br><font color="#000070" face="_GB2312" size="4"><b>   ¼</b></font>
              <form method="post" action="userlogin.asp" name=Form1>
              <table border="0">
                     <tr>
                         <td align=left>
                               <font color='#FF0000'>*&nbsp;</font>û<input type="text" name="username" size="16" maxlength="16" <%if Request.Cookies("UName") <> "" then%>value=<%=Request.Cookies("UName")%><%end if%>>
                         </td>
                     </tr>
                     <tr>
					     <td align=left>
							   <font color='#FF0000'>*&nbsp;</font>&nbsp;&nbsp;룺<input type="password" name="password" size="16" maxlength="16" <%if Request.Cookies("UPW") <> "" then%>value=<%=Request.Cookies("UPW")%><%end if%>>
                               <SELECT name=sel1>
		                               <OPTION value="0"></OPTION>
		                               <OPTION value="1">һ</OPTION>
		                               <OPTION value="2">һ</OPTION>
		                               <OPTION value="3">һ</OPTION>
		                               <OPTION value="4">һ</OPTION>
                               </SELECT>
						 </td>
					 </tr>
<%
               If VCYes() Then
                   Response.Write "<tr><td align=left><font color='#FF0000'>*&nbsp;</font>֤룺<input type='text' name='chknum' size='16'>&nbsp;"
                   Call ImgVCShow()
                   Response.Write "</td></tr>"
               End If
%>
                     <br>
                     <tr>
                            <td align=center>
                                  <input type=submit onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#ffcc99'" style="color:#000000;background-color:#ffffff;font-size:9pt;border:#ffcc99 2px solid;height:25px; width=80px" value="   " name="submit">
                                  <input type="reset" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#ffcc99'" style="color:#000000;background-color:#ffffff;font-size:9pt;border:#ffcc99 2px solid;height:25px; width=80px" value="  д " name="reset">
								  <input type="checkbox" name=hideme>
								  <br>
								  <br>
                                  <br>
								  <input onclick=javascript:open('ModifyPW.asp','','location=no,resizable=no,width=320,height=265,top=200,left=240') type=Button onMouseOut="this.style.backgroundColor='#ffcc99'" onMouseOver="this.style.backgroundColor='#ffffff'" style="color:#000000;background-color:#ffcc99;font-size:9pt;border:#ffcc99 2px solid;height:25px; width=80px" value="޸" name="button">
                                  <input onclick=javascript:open('getbackPW.asp','','location=no,resizable=no,width=320,height=265,top=200,left=240') type=Button onMouseOut="this.style.backgroundColor='#ffcc99'" onMouseOver="this.style.backgroundColor='#ffffff'" style="color:#000000;background-color:#ffcc99;font-size:9pt;border:#ffcc99 2px solid;height:25px; width=80px" value="һ" name="button">
								  
                                  <br>
                                  <br>
                                  <font size="2"><b>״ηʱվ<a class=a1 href=zc.asp>עû</a></b></font>
                            </td>
                     </tr>
              </table>
              </form>
              </CENTER>
<%
        Else
                if VCYes() then 
                    Call ImgVCShow_handle2()
                end if

                dim username,password,sure
                username= Trim(Request("username"))
                password= Trim(Request("password"))

                  if len(username)=0 or len(password)=0  then
                        Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_userlogin(0))</SCRIPT>"
                        Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=userlogin.asp'>"
                        Response.end
                 end if

                password= md5(password)

                  sql="select * from ts_userinfo where username='"&username&"'"
                  set rs=server.createobject("adodb.recordset")
                  rs.open sql,conn,1,1
                          if rs.bof or rs.eof then
                                 Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_userlogin(1))</SCRIPT>"
                                 Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=userlogin.asp'>"
                          else

                                 Call clearDLDate(username)

                                 if rs("UserPassword")<>password Then

                                       Call ExitUL(username)
                                       Call sequenceDLCount(username,rs("DLCount"))

                                       Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_userlogin(2))</SCRIPT>"
                                       Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=userlogin.asp'>"
                                 Else
                                        if rs("ForbidIP")=true and rs("bclass")<>1 and rs("bclass")<>2 then
                                              Response.write"<SCRIPT language=Javascript>passwords(promptInfo_userlogin(3))</SCRIPT>"
                                              Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=index.asp'>"
                                        elseif rs("forbid")=1 then
                                              Response.write"<SCRIPT language=Javascript>passwords(promptInfo_userlogin(4))</SCRIPT>"
                                              Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=index.asp'>"
                                        else   
                                                userloginip = userIP()
                                                userloginipSql = "update ts_userinfo set loginIP='" &userloginip&"' where username = '" & Request("Username") &"'"
                                                conn.Execute (userloginipSql)
                                                sql2= "update ts_userinfo set loginNow=now where username='"&username&"' and UserPassword='"&password&"'"
                                                conn.execute(sql2)
                                                if rs("bclass")=1 then
                                                        session("tslt_useridentity")=1
                                                elseif  rs("bclass")=2 then
                                                        session("tslt_useridentity")=2
                                                elseif  rs("bclass")=3 then
                                                         session("tslt_useridentity")=3
                                                elseif rs("aueUser")=true and rs("bclass")<>1 and rs("bclass")<>2 and rs("bclass")<>3 then   
                                                         session("tslt_useridentity")=4
                                                end if
                                                session("tslt_username")=username
                                                session("tslt_password")=password
                                                session("tslt_lgtype")=1
                                                call DelSpilthRecord()
                                                call onlineuser()
                                                if Request("hideme")="on" then
                                                       conn.execute("update ym_online set hidename=true where onlinename='"&session("tslt_username")&"'")
                                                       session("tslt_lgtype")=2
                                                else
                                                       session("tslt_lgtype")=1
                                                end if
                                                Response.write"<SCRIPT language=Javascript>passwords(promptInfo_userlogin(5))</SCRIPT>"

                                                Response.Cookies("UName")=username
                                                Response.Cookies("UPW")=Trim(Request("password"))
                                                SELECT case request("sel1")
                                                                case 0
                                                                         Response.Cookies("UName").Expires=date()
                                                                         Response.Cookies("UPW").Expires=date()
                                                                case 1
                                                                         Response.Cookies("UName").Expires=date()+1
                                                                         Response.Cookies("UPW").Expires=date()+1
                                                                case 2
                                                                         Response.Cookies("UName").Expires=date()+7
                                                                         Response.Cookies("UPW").Expires=date()+7
                                                                case 3
                                                                         Response.Cookies("UName").Expires=date()+31
                                                                         Response.Cookies("UPW").Expires=date()+31
                                                                case 4
                                                                         Response.Cookies("UName").Expires=date()+365
                                                                         Response.Cookies("UPW").Expires=date()+365
                                                End SELECT

                                                Response.write"<SCRIPT language=Javascript>passwords(promptInfo_userlogin(6))</SCRIPT>"

                                                Response.write"<META HTTP-EQUIV='Refresh' content='4; URL=" &isUrl(myFiltrateStr(session("userLoginUrl")))& "'>"

                                                session.Content.Remove("userLoginUrl")

		                                        Call ImgVCRndnum()
                                        end if
                                 end if
                         end if
                 RS.close
                 Set RS = Nothing
        end if
end sub

Function myFiltrateStr(isStr)
    If isStr<>"" then 
         dim arrays,i
         arrays=Split(isStr,"|")
         If IsArray(arrays)=True Then 
            myFiltrateStr=arrays(1)
        End If 
    End If 
End Function

function isUrl(isStr)
    if InStrRev(isStr,"/")<>"" then
        d=Right(isStr,(Len(isStr)-(InStrRev(isStr,"/"))))
    end If   
    isUrl=isStr
End function

%>

